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GOOCCOCCCCOCOCCOCOOOCoOoOoOoOoO 


UETP.SRCJRMSTEST2.MAR; 1 (1) 


RMSTEST,<BLOCK 1/0 TEST PROGRAM>,<GBL,LONG> 


8 SBEGIN RMSTEST2,004 


-ENABL DBG 


pris program provides several tests of the block i/o facility 
ncluding mixed block and record operations 


currently tests sequential file org only. 


MS 
I 


SRMSDEF 
«NLIST 


macros: 


wam*ue {MACRO BUFF NAM, SIZE 


-BLKB SIZE 
NAM'BSZ==SIZE 
.ENDM BUFF 


MACRO TYPE STRING, ?L 
<STRING> 


VERBOSITY,L 

MOVL § #$$.TMPX, CMDORAB+RABSL_RBF 
MOVW #$$.TMPX1, CMDORAB+RABSO_RSZ 
$PUT RAB=CADORAB, ERR=REPORT ERROR 


-ENDM TYPE 


“nares STORE STRING,PRE 

ig __ SRMSNAM 

_ =. 

E ; store any carriage control info 
SCII %STRINGZ 

TMPX1=.-$$. TMPX 

STORE 

NDM STORE 


|) MQOODVOOOOOO OOOO OOO 0000009090909 09 09090908 SIN INNIS 
CONAMNE $C ODO UNE WIN 0 OD NAME WIN = OOONAUE WN O OONOU ES WN" OOOO 
eee Bete 
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ene teste BLOCK 1/0 TEST PROGRAM ; Je i S p= 188e gh: $6: 2 AX/VMS Macro V04-0 


- Pa 
UETP.SRCIRMSTEST2. ” 3) 


0 
MAR; 1 
»MACRO a ah TSTNAM 
MOVL a8 1h TAK gPEG.P ESCR+4 3; addr 
x1 6c 5 DESCR 3 len 
Hi ciN 
-MACRO FINISH TSTNAM 
<TSTNAM> 
as8.1h TMPX,FIN_DESCR+ ess 3; addr 
#$$.TMPX1,FIR_DESCR > len 
input 
ELD FLONAM 
<FLDONAM> 


MOVL &#$$.TMPX,FLD_DESCR+4 =; addr 
MOVL = #$$. sTmPxt, FLB_DESCR > len 


faa 


ab a a a 2 2 4 ss ts te ss ss ss a ss 


PREF EWING ononononoronononoeng 
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L 6 
soba sid bachamanel ee 


FF39° 30 
86 AF 


147 
163 
0000 1 «-PSECT __RMSTEST,GBL,.LONG 
1 T2START:: 
1 ALIGN LONG 
0 153 T2FAB:: $FAB FAC=<B10,PUT>, FNM=<TSTSDISK: T2FILE.5A1, 1>,org=seq.rfm=fix,- 
154 RAT=BLK ,MRS=128,NAM=NAMBLK , FOP=<SUP>, ALQ=10,DEQ=1 
$ 155 T2RAB:: SRAB FAB=T FAB ,UBF =CPYBUF ,USZ=CPYBSZ,RBF =CPYBUF ,MBC=4 ,MBF=2,- 
1 § $2=512,ROP=<WBH> 
Vv: .BLK 
0000009C 4: ! RFASA BLKW 4 
$9 188 ; 
O9¢ et 
09c 196 TSTSBLOCKIO:: 
OFFC O009C 16 -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9I,R1I0,R11> 
O95 164 BEGIN <BLOCK 1/0 TESTS> 
08 165 SCREATE FAB=T2FAB,ERR=REPORT_ERROR 
0C4 166 BSBW 2 
58 DE 0C7 16 MOVAL T2RAB,R11 
0cB 168 SCONNECT RAB=R11,ERR=REPORT_ERROR 
FF23" 30 OODA 18 BSBwW ERR 
5 D4 O0DD 170 CLRL R8 3; vbn count 
5 D4 OODF 171 CLRL R7 
sig 
ita 174; fill block buffer 
By 
53 2888 9E 00E1 179 FILBUF : MOVAB @RABSL_RBF(R11),R3 ; get buff addr 
57 606 4434 178 10$: INCL 3: next rec 
63 0080 8F 57 $f 0 ef ope 4 Boyes . (SP) 7.8128, (RS) 3 pute rec 
: rec 
Fl 12 OOF2 181 BNEQ 1 : branch if not 
OOF4 1 § SWRITE RAB=R11,ERR=REPORT_ERROR 
FEFA’ 30 103 q BSBW ERR 
58 06 0106 184 INCL Re ; bump vbn 
10 AB 7 ot Hs ' 2 peor Benen ener At Rt? 3 match? 
eee 
12B 189 RFAOK: 
~~ FT 128 190 MPL RB, #63 3; end? 
B1 1B 01 3 191 BLEQU FILBUF 3 not yet 
1 136 
ie 
1 195 $SCLOSE FAB=T2FAB,ERR=REPORT_ERROR 
FEBC’ 30 141 136 BSBW 
02 AB B4& 0144 19 CLRW RABSW_ISI(R11) 3; allow rab reuse 
147 138 TYPE SE INISHED TEST 1 - BEGINNING TEST 2> 
00 11 17 ] BRB TEST 
17 0 
17 1 2 
17 2 


ens teste BLOCK 1/0 TEST PROGRAM ; 7% 19 3Ee- 138% 1:30:30 ies M sre 


04-00 Page 4 
SEP 4 UETP.SRCJRMSTES 


Vv 
TEST2.MAR; 1 (6) 


; re-read file created in test 1 and try random and sequential gets & reads 
FE83 CF 01900099 F . TEST2: BISL2 #FABSM_NAM,T2FAB+FABSL_FOP 
FESF ff 43 8F MOVB #F ABSM~BRO!FABSM_GET! FABSM_PUT,T F AB+F ABSB_F AC 
FE74 CF 00300000 8F CA eich #FABSM CBT!FABSM_CTG,FABSL_FOP+T2FAB; for Ctg/cbt test 
OPEN FAB=T2FAB,ERR=REPORT_ERROR 
FESC’ 30 BSBW aR 
15 FESB CF 14 ~«€E1 BBC #FABSV_CTG,FABSL_FOP+T2FAB,CTGOK 
creox: Prete set BIT SET, THEREFORE> 
15 FEGO CF 2015——soE1 "BBC #F ABSV_CBT, FABSL_FOP+T2F AB, BACK 
0 FIELD <CBT BIT SET, THEREFORE> 
BACK: 
: movw #128, rab$w_rsz(r11) 3\needed?\ 


04 AB 00000200 8F 00 
FEOQC’ 30 


MOVL _ #RABSM_RAH, RABSL_ROP(R11) 
SCONNECT RAB=R11, ERR=REPORT_ERROR 


try doing gets on all records sequentially 


ce at at ts = = — 9 = 2 = ss —) — 2 


SOOO UMVIM MIWA | QOCOTN NN NN NN NHMOVCVVTVVTVTVTFOWW YS YY P OMOOVNNN 


57 D4 C R7 3; record count 
GETREC: $GET R11 
12 50 €8 BLBS By’ ies 
0001827A 8F 50 01 CMPL «RO, #RMS$_EOF 
52.13 BEQL T2E0F 
SA 58 0 MOVL R11,R10 
FDEF' 30 BSBW REPORT_ERR 
FDEC" 0 BSBW ERR 
7 06 10$: INCL R? : bung rec count 
6E 00 57 #=28 8B £0080 8F $8 CMPCS #128, @RABSL_RBF(R11),R7,40, (S ); data ok? 
15 BEQL RECOK 


E 
FIELD <RECORD CONTENTS> 
RECOK: 


0080 8F 22 AB 7} CMPW RABSW_RSZ(R11) ,#128 
1D 3 BEQL OK 
FIELD <RECORD SIZE> 
MBPT 
RSZOK: 
99 #11 BRB GETREC 


00000100 8F 57 O01 T2EOF: CMPL R7 $576 
—E 1 EQL TEST A 
5A B g MOVL R11,R10 

FD94" BSBW EOF PUT ; replaced type <bad eof> 


POOP HSS GFF DDVUMA AA MAL SMD OMA L LLL EL TPP PPP Pr PuInn > £3 O~— CWCC00000D 


OOWONA MEAN $$ O OONA UE WIN HO ONAL WIN 3 CO ODNAULS WN O OONOU SWI OVOONOAOUS 
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DPSS rss Be BB Be BS BE EE ANIA WI NIIP PON POPPONINPNII 2 2 OO 
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PROPDPIPIPPIMINIPININIPYNIMNINININIPININIPYPINININPYD 


N 6 
sa beet 1 Tet Frees MCSEEIBEE SUSK:EE MEAEMERMEREARIEMhensy 8 


7 
BLOCK 1/0 TEST PROGRAM ; 16-SEP-1984 01:46: AX/VMS Macro V04-00 Page RMS 
g SE -1882 ae $70 UETP.SRCIRMSTEST2.MAR; 1 . (8) 


vena 


5 4 
4 $3 
74 3 mow try sequential reads 
ct 589 ae 
74 8 
74 § TEST2A 
74 0 TYPE <FINISHED TEST 2 = BEGINNING TEST 2A> 
38 AB Q dO A 7 MOVL #1, RABSL_BKT(R1 
8 D4 A 7 CLRL Rg 3 vbn 
A 75 READVB: SREAD R11 
oc 8 E8 B 74 BLBS RO,10$ 
0001827A 8F »} B 75 CMPL RO, #RMSS$_EOF 
D 1 BC i: BEQL § T2AEOF 
FD3F* 30 2 BF 7 BSBW ERR 
5 b8 C 4 10$ INCL R8 
ger ¢3 7 BSBW CHKBLK ; verify contents 
38 AB ODS C6 0 CLRL tte BKT(R11) 3 get sequential operation 
DE 11 C9 1 BRB READVE 
CB ¢ 
02CB 85 ; 
cB Se 
00000040 8F 58 D1 ‘8 5 T2AEOF: CMPL RB, #64 
— 13 02D 86 BEQL TEST2B 
5A B 44 02D4 8 MOVL R11,R10 
FD26' 30 02D7 88 BSBW EOF PUT ; replaced type <bad eof> 
O2DA 289 MBPT 


wth? 


20 AB_ 0204 or 
38 AB 9 


58 FCD3' 
m 
38 AB 
FCB8' 
58 


02 
2D2D2D2D BF ceateeeclh 


oe al 
22 AB 4 
00000050 8F 
F C64" 
$8 AB 
0200 8F 


FC49° 


38 AB 


20 AB 


00000000’ EF 
1D 


A.AIAIAIAI AW 


D> OOOO O NINN NNN NNN B&B BID 2 SS SMM 
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BLOCK 1/0 TEST PROGRAM ; 16-SEP-1984 01:46: AX/VMS Macro V04-00 
Sets 7 8:59:28 YOETP SRC RMSTEST2.MAR; 1 
3 now try mixed reads, writes, gets, and puts 
TEST2B: 


TYPE <FINISHEO TEST 2A = BEGINNING TEST 28> 


multiple block test 


MOVW  #516,RABSW_USZ(R11) 

MOVL #9,RABSL_BRT(R11) 

$READ RAB=R11,ERR=REPORT_ERROR 

BSBW CER 

MOVL 4#9,R8 

BSBW 36s CHKBLK 

CURL RABSLBKT(RI1) 

SREAD RAB=RT1,ERR=REPORT_ERROR 
SBW 0 CERRR 


MOVL #11,R8 


x 
3 
39 
$7 
$3 
} 

4 
05 

§ 

08 

10 

1 

ig BSBW  CHKBLK 

14 CMPL CPYBUF +512,#*x2D2d2D2D 
15 BEQL TEST2B2 

18 FIELD  <DATA> 

1 BPT 

i 

9 : test short block write and auto extend of file 
5 TEST2B2: 

4 CLRL =‘ CPYBUF 

5 MOVW #4,RABSW_RSZ(R11) 

: MOVL #86,RABSC_BKT(R11) : cause file extend 

SWRITE RAB=R11,ERR=REPORT_ERRO 

8 SBW RR 

9 CLRW RABSW_RSZ(R11) 

0 OVW #512,RAB$W_USZ(R11) 

1 SREAD RAB=R11,ERR=REPORT_ERROR 
‘ SBW CER 

4; 

5 :SINCE BKT IS STILL 80, READ THAT BLK 

: ;USED TO EXPECT EOF ERROR, NO LONGER 

§ CMPW =- RABSW_RSZ(R11) #4 
40 EQL RSZOKT 

41 FIELD <RECORD S1ZE> 

4¢ MBPT 

43 RSZOK1: 

44 TSTL CPYBUF 3; test first four bytes of bloc 
45 : (since that's all we wrote 
46 BEQL  TEST283 

4 FIELD <DATA> 


Pp 7 RMS 
29° (10) 005 
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Hy oe 
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F7 48 MBPT 
FF ©6349 TEST2B3: 
1 AB 02 90 Fr p MOVB  #RABSC_RFA erate ACCA); aft? rfa access 
10 AB 00000050 BF OD 40 MOVL #80 RABSW T) ve the rfa 

00000000'EF OF 83 d e : abve etd Btu, BUF ait) 

4 : 4 $GE Slesaltce ERR=REPORT_ERROR 

FBD9’ 30 0424 5 BSBWStCéE 
00 00000000'EF 9080 F D 4 7 6 CMPCS #128,CPYBUF,#0,#0, (SP) 
13 04 57 BEQL  TEST2B4 
4 28 FIELD <DATA> 
4oA MBPT 


Rm. 
sha? ae 1 OH seem MESETN BLAKE MECC Re ENaMbee od 


4 
4 : 
; ; check that we can put to eof 
4 - 
4 66 TEST2B4: 
1 00 90 4 6 MOVB = #RA $¢ se SEQ. jpasse _RAC(R11); sequential mode 
QOO00000'EF  OOOO12AF BF D0 04 8 MOVL #47 rye ; funny data 
4 $ $PUT RAB=R PERREREPORT. ERROR’ 
FB8D' 3 4 g p BSBW 
FCIA CF 10 AB 06 47 7 MOVC3 is "ABS. REACRITD RFASAV 
38 AB a 47A if MOVL RAget Bk ) ; read blk 1 in between 
47E 37 SREAD Ragen ERR=REPORT. ERROR 
FB70' 30 04 74 BSBW 
tot) GEN HBG tle 
1g AB 03 0 496 75 MOVB CHKBL RFA, RABSB_RAC(R11) 
10 ABOU BF: CF 28 049A 28 MOVC3 #6,RFASAV,RABSW_RFA(R11) 
4A1 37 $GET RAB=R11 MERROREPORT _ERROR 
FB4D' 30 048 0 BSBW SséERR 
000012AF 8F 00000000 FF Db} 4B 1 CHPL CPYBUF .#4783 : funny data back? 
6 : FIELD <DATA> 
4D 4 MBPT 
400 5 
bebo $3 
400 8 TESTEND: 
0400 38 SCLOSE FAB=T2FAB,ERR=REPORT_ERROR 
FBOF' 30 4et 90 BSBW RR 
4F 91 FINISH <BLOCK 1/0 TESTS> 
02 AB B4 208 35 CLRW RAB$SW_ISI(R11) make test restartable 
FArS CF 4 p90 50 9 MOVL FABSA_ SUP, T2FAB+F ABSL FOP 
FBO3 CF 1 9 206 94 MOVB #FABSM@ pur IF ABSA _BIO, T2FAB+F ABSB_FAC 
04 AB 800006 F pO 051 95 MOVL SM7W L~ROP(R11) 
22 AB 0290 ' B0 318 3 nov AS3, “RIBS, R srtntt) 
1E AB 00 90 3 4 ; MOVE PRABSC’ SEQ. RABSB_RAC(R11) 
5 400 ; 
; is ; but first erase the file by namblk 
5 403 ° 
FAD3 CF 01000009 af 8 3 4 4 BIsi2 Faagt ri NAM tite FOP+T2FAB 
FAFB CF B 5 3 4 CLRB FABSBOEN FAB 
fe 339 4 SERASE FAB oFAS bare REPORT_ERROR 
540 4 § TYPE  <T2FILE.DAT HAS BEEN ERASED BY NAMBLK> 
FA7F CF 01000000 8F cA a7 410 BitL #FABSM_NAM,FABSL_FOP+T2FAB; for re-entry 


reo rr —_—+ 


F 7 
vba Ae HT pron CSEEISHL SUSHSEE UEAIMEDMGAR ARIS PR 


413 
414 ; 
i : chkblk subroutine to verify we read the right block 
417° 
10 AB OSS » 418 CHKBLK: CMPL RB, RABSW_RFA(R11) 
1D 1 A & BEQL CHKB1 
FIELD <RFA> 
A d MBPT 
20 AB 22 AB BY AQ «4 ; CHKB1 CMPW RABSW_RSZ(R11) ,RABSW_USZ(R11) 
L HK 
1D A 4 BEQ CHKB2 
e258 he. were 
56 8 0 45 CD 4 § CHKB2: ROTL #2,R8,R6 
5D1 4 SUBL2 # Be i; get starting rec # 
ge Be E pe 4 8 MOVA rey L_RBF(R11),R1 
6E oo 66CSCOCG 00 F $ dD 4 RIGHT CMPC #128, (R1),R6,40, (SP) ; right data? 
° a> a8} PietD  <DATAD 
om fet tem fer ; 
: 3 next recor 
01 56 02 «00 33 601 434 CMPZV 8 #2,R6,#1 3; done with block? 
D0 ‘ 606 435 BNEQ RIGHT 
0 60 4 $ RSB 
60 4 
609 4 } 
609 4 
609 440 
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tata 
eeeeeeeeeeeerere 
o 


nl () mn) 
Oooo > 


5 


85 & & & om ww ww 
SELLS SLE SS 
<<ccccccc 


222 
8 
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Symbol table 


MS_PBUGCHK 
SSRMS~TBUGCHK 
S$SRMS_UMODE 
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! Psect synopsis ! 


be cere nnreenenene 


PSECT name Allocation PSECT No. Attributes 
»§ SS ., ( ») 9 ( -) NOPIC USR CON ABS LCL NOSHR NO xe NORD NOWRT NOVEC pyre 
pas test ( 1545.) ( -) NOPIC USR CON REL GBL NOSHR x RD WRT NOVEC L 
SABsS ( ia ¢} -) NOPIC USR CON ABS _ LCL NOSHR XE RD WRT wOver BYTE 
SRMSNAM 1 ( H ) ( -) NOPIC USR CON REL LCL NOSHR XE RD WRT NOVEC BYTE 
~~. SRMSNAM 11 ( 281.) 04 ¢ -) NOPIC USR REL LCL NOSHR XE RD WRT NOVEC BYTE 
pees eases en tana a eno nen enon $ 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 :00:00.07 : 8:6 -68 
Command processing 1 ; 7:00:00. : 9 f4 
Pass 1 2 :00:08. :00:19.14 
gyeto} table sort : 4 :00:01.17 
Pass 10 0:00:02. :00:05.29 
Symbol table output 1 :00:00. :00:00. g 
Psect synopsis output 00:00. : 3: . 
Cross-reference output :00:00.00 :00: 98 
Assembler run totals 52 0:00:12.51 :00:30. 


hg yorking sgt Limit was 1350 pages. 

47237 bytes_(93 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 583 non-local ane 19 local symbols. 
object records in Pass 2. 


macros. 


440 source Lines were read in Pass 1, producing 
38 pages of virtual memory were used to define 3 


¢eerecee were ee ees e ese eee moses + 


! Macro library statistics : 


Pew meanroasae nsw onee ne eeeeeoaneene 


Macro Library name Macros defined 
SDUA28: CSYS.OBJJLIB.MLB;1 

=Be5Ssouase: VSL IBISTARLET-ALB:2 28 

TOTALS (all Libraries) 0 


798 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSTEST2/OBJ=OBJS:RMSTEST2 MSRC$:RMSTEST2/UPDATE=(ENHS$:RMSTEST2) +EXECMLS$/LIB 
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